00100		SUBROUTINE ISEE(NAM)
00200		COMMON LL(1),II(1000)
00300	112	NX=0
00400		NY=0
00500		CALL DPYCLR
00600	   	CALL DPYSET(1,II,1000)
00700		IF(NAM.NE.0.AND.NAM.NE.'     ')GO TO 140
00800	120	TYPE 113
00900	113	FORMAT(' TYPE:<CR>'/' OR:<C><CR>'/)
01000	106	CALL SETCUR(NX,NY,0)
01100		ACCEPT 103,C
01200	103	FORMAT(A1)
01300		IF(C.EQ.'S')GO TO 104
01400		IF(C.EQ.'B')GO TO 105
01500		CALL RDCUR(NX,NY)
01600		IF(C.EQ.'*')GO TO 141
01700	144	CALL SETCUR(NX,NY,1)
01800		ACCEPT 103,C
01900		CALL RDCUR(MX,MY)
02000		IF(C.EQ.'C')GO TO 150
02100		IF(C.EQ.'H')GO TO 153
02200		IF(C.EQ.'V')GO TO 154
02300	145	CALL ALINE(NX,NY,MX,MY)
02400		IF(C.EQ.'P'.OR.C.EQ.'*')GO TO 110
02500	
02600	   	NX=MX
02700		NY=MY
02800	110	LL(1)=II(2)
02900		CALL DPYOUT(1)
03000		IF(C.EQ.'P')GO TO 144
03100		IF(C.EQ.'*')GO TO 147
03200		GO TO 120
03300	
03400	105	II(2)=LL(1)-1
03500	        CALL ACCPOG(1)
03600		GO TO 110
03700	147	IX=NX
03800		IY=NY
03900		NX=MX
04000		NY=MY
04100		MX=IX
04200		MY=IY
04300		GO TO 148
04400	
04500	141	MX=NX
04600		MY=NY
04700	148	CALL AIVECT(NX,NY)
04800	143	TYPE 142
04900	142	FORMAT(' TYPE:<CR>'/' OR:''*''<CR>'/' OR:''J''<CR>'/)
05000	   	CALL SETCUR(NX,NY,1)
05100	   	ACCEPT 103,C
05200		IF(C.EQ.'J')GO TO 145
05300		CALL RDCUR(NX,NY)
05400		IF(C.EQ.'*')GO TO 120
05500	   	CALL AVECT(NX,NY)
05600		LL(1)=II(2)
05700		CALL DPYOUT(1)
05800		GO TO 143
05900	140	IF(.NOT.LOOKD(NAM))GO TO 123
06000		CALL IFILE(1,NAM)
06100		READ(1)LL(1),(II(K),K=1,LL(1)+2)
06200		CALL ACCPOG(1)
06300		CALL DPYOUT(1)
06400		GO TO 120
06500	150	R=0
06600		RM=(MX-NX)**2+(MY-NY)**2
06700		RM=SQRT(RM)
06800		KX=NX+RM*SIND(R)
06900		KY=NY+RM*COSD(R)
07000		CALL AIVECT(KX,KY)
07100		DO 151 K=6,360,6
07200		R=K
07300		KX=NX+RM*SIND(R)
07400		KY=NY+RM*COSD(R)
07500	151	CALL AVECT(KX,KY)
07600		GO TO 110
07700	153	CALL ALINE(NX,NY,MX,NY)
07800		NX=MX
07900		GO TO 110
08000	154	CALL ALINE(NX,NY,NX,MY)
08100		NY=MY
08200		GO TO 110
08300	104	CALL CLRCUR
08400	   	TYPE 111
08500	111	FORMAT(' TYPE:<CR>;TO CONTINUE.'/' TYPE:''N''<CR>;TO START OVER.'/
08600		1' TYPE:''S''<CR>;TO STOP AND MAKE ME FORGET IT.'/
08700		2' OR TYPE:''F'';TO SAVE IF FINISHED.'/)
08800		ACCEPT 103,C
08900		IF(C.EQ.'S')GO TO 123
09000		IF(C.EQ.'N')GO TO 112
09100		IF(C.NE.'F')GO TO 120
09200	127	TYPE 121
09300	121	FORMAT(' TYPE A FIVE LETTER NAME FOR THIS PICTURE.'/)
09400		ACCEPT 122,NAM
09500	122	FORMAT(A5)
09600		IF(NAM.EQ.'     ')GO TO 127
09700		CALL OFILE(1,NAM)
09800		WRITE(1)LL(1),(II(I),I=1,LL(1)+2)
09900		END FILE 1
10000	   	LL(1)=LL(1)+2
10100	   	CALL SAVB(LL)
10200	123	CALL DPYCLR
10300	   	RETURN
10400		END